home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / ticomm.arc / TTY.ASM < prev   
Encoding:
Assembly Source File  |  1984-11-20  |  1.1 KB  |  51 lines
  1. ;*********** TI-COM TEST PROGRAM **********
  2. CODE SEGMENT PUBLIC
  3.        ASSUME CS:CODE,DS:CODE
  4.        PUSH CS
  5.        POP  DS
  6.        PUSH DS
  7.        POP  ES
  8.        MOV  AH,1
  9.        MOV  AL,1
  10.        INT  70H    ; OPEN COM PORT
  11.        STI         ; ENABLE INTERRUPTS
  12.        MOV  AX,3301H
  13.        MOV  DL,1
  14.        INT  21H        ; TURN ON CTRL-C CHECK
  15. READ:
  16.        MOV  AH,0BH
  17.        INT  21H   ; READ KEY BOARD
  18.        CMP  AL,0
  19.        JE   NKP
  20.        MOV  AH,1
  21.        INT  21H
  22.        MOV  DL,AL
  23.        MOV  AL,1
  24.        MOV  AH,4  ; WRITE CHAR TO COM
  25.        INT  70H
  26.        MOV  CX,500H
  27. WATE:  NOP
  28.        LOOP WATE
  29.  
  30.  
  31.  
  32. NKP:   MOV  AH,2  ; READ COM STAT
  33.        MOV  AL,1  ; PORT 1
  34.        INT  70H
  35.        CMP  AL,1
  36.        JNE  READ
  37.        MOV  AH,3  ; READ CHAR
  38.        MOV  AL,1
  39.        INT  70H
  40.        AND  AL,7FH
  41.        MOV  AH,0EH ; WRITE TELETYPE
  42.        MOV  CX,1
  43.        INT  49H
  44.        JMP  READ
  45. DONE:  MOV  AX,0601H
  46.        INT  70H
  47.        MOV  AH,4CH
  48.        INT  21H
  49. CODE   ENDS
  50.        END
  51.